AOL File Library: 4,401 to 4,500/aol-file-protocol-4400-4401-to-4500.zip/AOLDLs/PDA-Newton Development/ND Date & Time Editors/date.sit/dateTime.π.text

Text File | 1994-10-25 | 21KB | 783 lines

DEFCONST('kDateFormat,GetDateStringSpec([
                [kElementMonth, kFormatAbbr],
        [kElementYear,  kFormatLong],
                [kElementDay, kFormatLong]]));

// ---- End Project Data ----


// ---- File test.t ----
main :=
   {title: "Date Protos Sample 2",
    viewBounds: {left: 0, top: 25, right: 234, bottom: 310},
    viewFormat: 83951953,
    _proto: protoApp,
    debug: "main"
   };

_view000 := /* child of main */
   {
    text:
      "\u00A9\u 1994 Atomic Software.  All rights reserved.\n\nFree to distribute and use in your apps!  Just let me know you are using it and if you enhance it.\n\nThanks\n   Allan Marcus\n\nCIS: 76666,2113\nAppleLink: allan.marcus\neWorld/NewtonMail: allan.m\nInterNet: [e-mail]\n\n* This is a modified version of Allan's original that he sent to me. See the readme for the changes that I made to it. - Hardy Macia"
    ,
    viewBounds: {left: 1, top: 14, right: 237, bottom: 234},
    viewJustify: 0,
    _proto: protoStaticText
   };




// ---- File protoDateTimePicker ----

// ---- File protoFloatDragNGo ----
_userproto000 :=
   {viewBounds: {left: 0, top: 0, right: 10, bottom: 10},
    viewFlags: 576,
    viewClickScript:
      func(unit)
      begin
         // only allow a drag to occur if it is in
         // the margin of the view

         // NOTE, all cooridnates are in GLOBAL space

         // otherwise, pass clicks through to my children
         local x := GetPoint(firstX, unit),
               y := GetPoint(firstY, unit),
               box := base:GlobalBox() ;


         if  (y - box.top) < 10
            OR   (box.bottom - y) < 10
            OR   (x - box.left) < 10
            OR   (box.right - x) < 10 then
         begin
            InkOff(unit);
            base:Drag(unit, nil);
            self:Dirty();// to get ink dropping up

            // return true to say handled the click
            true;
         end else
            // return nil so kids can get click
            nil;
      end,
    declareSelf: 'base,
    viewJustify: 80,
    _proto: protoFloatNGo
   };


// ---- Back in File protoDateTimePicker ----
DateTimeView :=
   {viewFlags: 576,
    viewBounds: {left: 0, top: 0, right: 224, bottom: 148},
    OpenMe:
      func(returnView, myDate, myTitle)
      begin
          self.viewToSet := returnView;
          self.theDate:= myDate;
          self.theTitle := myTitle;
          self:Open();
      //    print("Open me done")
      end,
    selectedDates: [],
    theDate: nil,
    theTitle: "test",
    title: "clMonthView Sample",
    viewSetupFormScript:
      func()
      begin

          if not theDate or not StringToDate(theDate) then
              theDate:= time();
          else
              theDate := StringToDate(theDate);

          selectedDates := [theDate];

          if date(theDate).hour<12 then ampm.clusterValue:=0;
          else ampm.clusterValue:=1;

          setvalue(pickerTitle, 'title, theTitle);

      end,
    viewToSet: nil,
    Update:
      func(returnView, myDate, myTitle)
      begin
          self.viewToSet := returnView;
          self.theDate:= myDate;
          self.theTitle := myTitle;
      //    self:viewSetUpFormScript();
          if not theDate or not StringToDate(theDate) then
              theDate:= time();
          else
              theDate := StringToDate(theDate);

          selectedDates := [theDate];

          clock.hours := (theDate DIV 60) mod 24;
          clock.minutes :=theDate MOD 60;
          clock:dirty();
          clock:setTime();

          if date(theDate).hour<12 then ampm:setClusterValue(0);
          else ampm:setClusterValue(1);

          setvalue(pickerTitle, 'title, theTitle);

          datePicker:Refresh();
          print("datetime updated")
      end,
    AutoClose: True,
    _proto: _userproto000,
    debug: "DateTimeView"
   };


// ---- File protoDatePicker ----
protoDatePicker :=
   {viewFlags: 1,
    viewFormat: nil,
    viewBounds: {left: 0, top: 0, right: 120, bottom: 100},
    monthChangedScript:
      func()
      begin
          // This will be inherited by the child month view and called every time
          // the user taps on a new day.  It *must* be here because the user can
          // tap on days at the end or beginning of the previous or next month
          // (the blank spaces on the view) and actually change the date!
          // If this script isn't here to update the view and the title string,
          // the month with change but the display won't--confusing the heck out of
          // people.
          :Dirty();
          :SetTitle();
      end,
    monthYearSpec:
      GetDateStringSpec([
              [kElementMonth, kFormatLong],
              [kElementYear,  kFormatLong]]),
    SetTitle:
      // This function updates the month/year label.  It should be called
      // whenever the user changes the date.

      func()
      begin
          SetValue(monthYearLabel, 'text,
                   LongDateStr(selectedDates[0], monthYearSpec));
      end,
    viewSetupDoneScript:
      func()
      begin
          if NOT selectedDates exists then
              self.selectedDates := [Time()];  // initialize selectedDates to current
          :SetTitle();
      end,
    Refresh:
      // This allows scripts outside the proto to have a nice entry point for
      // getting the picker refreshed when the selectedDates array changes.

      func()
      begin
          monthView:Dirty();
          :SetTitle();
      end,
    viewclass: 74,
    debug: "protoDatePicker"
   };

monthYearLabel := /* child of protoDatePicker */
   {text: "",
    viewBounds: {left: 0, top: 0, right: 0, bottom: 15},
    viewFlags: 3,
    viewJustify: 8388662,
    _proto: protoStaticText,
    debug: "monthYearLabel"
   };
// View monthYearLabel is declared to protoDatePicker



previousMonthButton := /* child of protoDatePicker */
   {viewBounds: {left: 0, top: 0, right: 15, bottom: 15},
    viewSetupFormScript:
      func()
      begin
          // initialize the icon from the system bitmap via a magic pointer.
          self.icon := @325;    // leftBitmap
      end,
    viewFlags: 515,
    viewJustify: 6,
    viewFormat: 1,
    buttonPressedScript:
      func()
      begin
          // move to the previous month, and make sure the views redraw.
          selectedDates[0] := IncrementMonth(selectedDates[0], -1);
          monthView:dirty();
          :SetTitle();

          // have to call RefreshViews because this is the buttonPressedScript,
          // the view otherwise wouldn't get refreshed until the user lifted the
          // pen!  If you had done this in the buttonClickScript instead, you
          // could skip the RefreshViews() call.
          RefreshViews();
      end,
    icon: nil,
    _proto: protoPictureButton,
    debug: "previousMonthButton"
   };



nextMonthButton := /* child of protoDatePicker */
   {icon: nil,
    viewBounds: {top: 0, left: -15, right: 0, bottom: 15},
    viewSetupFormScript:
      func()
      begin
          // initialize the bitmap from the system ROMs via a magic pointer.
          self.icon := @326;    // rightBitmap
      end,
    viewFlags: 515,
    viewFormat: 1,
    viewJustify: 38,
    buttonPressedScript:
      func()
      begin
          // move to the previous month, and make sure the views redraw.
          selectedDates[0] := IncrementMonth(selectedDates[0], 1);
          monthView:dirty();
          :SetTitle();

          // have to call RefreshViews because this is the buttonPressedScript,
          // the view otherwise wouldn't get refreshed until the user lifted the
          // pen!  If you had done this in the buttonClickScript instead, you
          // could skip the RefreshViews() call.
          RefreshViews();
      end,
    _proto: protoPictureButton,
    debug: "nextMonthButton"
   };



monthView := /* child of protoDatePicker */
   {viewBounds: {top: 15, left: 1, right: -1, bottom: -1},
    viewFlags: 513,
    viewFormat: nil,
    labelFont: ROM_fontSystem9Bold,
    dateFont: ROM_fontSystem9,
    viewJustify: 246,
    singleDay: true,
    viewclass: 80,
    debug: "monthView"
   };
// View monthView is declared to protoDatePicker




// ---- Back in File protoDateTimePicker ----
datePicker := /* child of DateTimeView */
   {viewBounds: {left: 9, top: 30, right: 129, bottom: 118},
    viewFormat: 336,
    _proto: protoDatePicker,
    debug: "datePicker"
   };
// View datePicker is declared to DateTimeView




// ---- File protoAdjustoButton ----

// Before Script for "_userproto001"
// Copyright, ⌐ 1994 Apple Computer. All rights reserved.

_userproto001 :=
   {buttonHeight: 13,
    textSpacer: 8,
    viewSetupFormScript:
      func()
      begin
          viewBounds := RelBounds(viewBounds.left, viewBounds.top,
                   StrFontWidth(text, viewFont) + textSpacer, buttonHeight) ;
      end,
    viewChangedScript:
      func(slot, view)
      begin
          inherited:?viewChangedScript(slot, view) ;
          if slot = 'text then
              :SyncView();            // SyncView causes the viewSetupFormScript to be called again,
                                          // which sets the size based on the text.
      end,
    _proto: protoTextButton
   };


// ---- Back in File protoDateTimePicker ----
_view001 := /* child of DateTimeView */
   {text: "Today/Now",
    buttonClickScript:
      func()
      begin
          selectedDates := [Time()];
          datePicker:Refresh();

          clock.hours := (Time() DIV 60) mod 24;
          clock.minutes := Time() MOD 60;
          clock:dirty();
          clock:setTime();

          if date(Time()).hour<12 then ampm:setClusterValue(0);
          else ampm:setClusterValue(1);

      end,
    viewBounds: {left: 9, top: 132, right: 77, bottom: 144},
    _proto: _userproto001
   };



enter := /* child of DateTimeView */
   {text: "Set",
    buttonClickScript:
      func()
      begin
          local am:=clone(getglobals().international.currentlocalebundle.timeformat.morningStr);
          local pm:=clone(getglobals().international.currentlocalebundle.timeformat.eveningStr);

          if ampm.clusterValue = 0 then
              x := stringtodate(longdatestr(selectedDates[0],0) && theTime.text & am);
          else
              x := stringtodate(longdatestr(selectedDates[0],0) && theTime.text & pm);

          viewToSet:PickedDate(x);
      //    SetValue(viewToSet, 'text, DateNTime(x));
          if autoClose then :Parent():Close();
      end,
    viewBounds: {left: 107, top: 132, right: 161, bottom: 144},
    _proto: _userproto001,
    debug: "enter"
   };
// View enter is declared to DateTimeView



clock := /* child of DateTimeView */
   {
    timeChanged:
      func()
      begin
          // do this so the old hands are erased...
          self:Dirty();

          // this is just for fun, put your own stuff here...
          //print("H:" && hours && "M:" && minutes);

          :setTime();



      end,
    hours: 14,
    minutes: 10,
    viewBounds: {left: 152, top: 26, right: 216, bottom: 90},
    viewSetupFormScript:
      func()
      begin
          self.hours := (theDate DIV 60) mod 24;
          self.minutes := theDate MOD 60;
          self:dirty();
          :setTIme();
      //    print("Clock set up");
      end,
    SetTime:
      func()
      begin
          local myHours:=self.hours,
                  myMinutes := self.minutes,
                  x, y, myArray;

      //print(hours&minutes);

          if GetLocale().TimeFormat.timeCycle = kCycle12 then begin
              if myHours = 0 then myHours:=12;
              if myHours > 12 then myHours := myHours - 12;
          end else begin
              if ampm.clusterValue = 1 then begin
                  if myHours < 12 then
                      myHours := myHours + 12;
              end else begin
                  if myHours > 11 then
                      myHours := myHours - 12;
              end;
          end;


          y:=clone(getglobals().international.currentlocalebundle.timeformat.timeSepStr1);


          if myMinutes < 10 then
              x:=(myHours & y & "0" & myMinutes);
          else
              x:=(myHours & y & myMinutes);

          setvalue(theTime, 'text, x);
      end,
    _proto: protoSetClock,
    debug: "clock"
   };
// View clock is declared to DateTimeView



theTime := /* child of DateTimeView */
   {text: "00:00",
    viewBounds: {left: 167, top: 96, right: 202, bottom: 110},
    viewFont: simpleFont9,
    viewJustify: 8388610,
    _proto: protoStaticText,
    debug: "theTime"
   };
// View theTime is declared to DateTimeView



pickerTitle := /* child of DateTimeView */
   {title: "Title",
    viewBounds: {left: 4, top: 7, right: 200, bottom: 23},
    _proto: protoTitle,
    debug: "pickerTitle"
   };
// View pickerTitle is declared to DateTimeView



ampm := /* child of DateTimeView */
   {viewBounds: {left: 152, top: 110, right: 224, bottom: 126},
    _proto: protoRadioCluster,
    debug: "ampm"
   };
// View ampm is declared to DateTimeView

am := /* child of ampm */
   {buttonValue: 0,
    viewBounds: {left: 0, top: 0, right: 32, bottom: 13},
    text: "AM",
    viewSetupFormScript:
      func()
      begin
      //    local x:=clone(getglobals().international.currentlocalebundle.timeformat.morningStr);
      //    setValue(self, 'text, trimstring(x));
      //    print(trimstring(x));
      end,
    _proto: protoRadioButton,
    debug: "am"
   };



pm := /* child of ampm */
   {buttonValue: 1,
    viewBounds: {left: 35, top: 0, right: 67, bottom: 13},
    text: "PM",
    viewSetupFormScript:
      func()
      begin
      //    if 0 = StrLen(getglobals().international.currentlocalebundle.timeformat.eveningStr) then
      //    setValue(self, 'text, trimstring(x));
      //    print(trimstring(x));
      end,
    _proto: protoRadioButton,
    debug: "pm"
   };






// ---- Back in File test.t ----
dateTimePicker := /* child of main */
   {_proto: DateTimeView, debug: "dateTimePicker"};
// View dateTimePicker is declared to main




// ---- File protoDateEditorInputLine ----
dateEditorInputLine :=
   {viewBounds: {left: 19, top: 64, right: -21, bottom: 80},
    viewJustify: 8388656,
    labelCommands: [],
    labelClick:
      func(unit)
      begin
          if self:TrackHilite(unit) then begin
              if Visible(dateTimePicker) then
                  dateTimePicker:Close();
              // I didn't want to do this, but to get the date picker to open correctly
              // every time I needed to do the deferred action.
              local myView := self;
              AddDeferredAction(func() begin
                          // params to OpenMe are
                          //            (the view that gets the PickedDate message,
                          //            the default date to show, and
                          //            the title for the date picker view)
                          dateTimePicker:OpenMe(entryLine, entryLine.text, label);
                          myView:Hilite(nil);
                      end,
                      '[]);
          end;
          return(true); // say I handled the click.
      end,
    label: "Date",
    entryFlags: 539137,
    Date: nil,
    textSetup:
      func()
          :textFormat(date);,
    viewSetupDoneScript:
      func()
      begin
          SetValue(entryLine,'viewFont,userFont10);
          if Visible(dateTimePicker) then dateTimePicker:Update(entryLine, entryLine.text, label);
      end,
    PickedDate:
      func(internalDate)
      // is called by datepicker when user taps "set" you must process
      // the internal date passed to you and display it
      begin
          Date := internalDate;
          SetValue(entryline,'text,:textFormat(Date));
      end,
    textFormat:
      func(duhDate)
          if duhDate then
              LongDateStr(duhDate,kDateFormat);
          else
              "";,
    viewSetupFormScript:
      func() // I think I'm using this in my project that's why it is here. You can delete it.
      begin
      //    date := filterFromDate;
      end,
    viewlinespacing: 12,
    textChanged:
      func()
          if NOT text OR StrLen(text) = 0 then
              date := nil;
          else
              date := StringToDate(TrimString(text));,
    _proto: protoLabelInputLine,
    debug: "dateEditorInputLine"
   };


// ---- Back in File test.t ----
DateTimeInputLine := /* child of main */
   {viewBounds: {left: 9, top: 253, right: 222, bottom: 273},
    viewJustify: 8388608,
    textFormat:
      func(duhDate)
          if duhDate then
              DateNTime(duhDate);
          else
              "";,
    label: "Date & Time",
    _proto: dateEditorInputLine,
    debug: "DateTimeInputLine"
   };



DateInputLine := /* child of main */
   {viewBounds: {left: 9, top: 233, right: 222, bottom: 253},
    viewJustify: 8388608,
    labelClick:
      func(unit)  //changed dateTimePicker to datePicker
      begin
          if self:TrackHilite(unit) then begin
              if Visible(datePicker) then
                  datePicker:Close();
              // I didn't want to do this, but to get the date picker to open correctly
              // every time I needed to do the deferred action. The drawback is that the
              // button is unhilited right away
              local myView := self;
              AddDeferredAction(func() begin
                          // params to OpenMe are
                          //            (the view that gets the PickedDate message,
                          //            the default date to show, and
                          //            the title for the date picker view)
                          datePicker:OpenMe(entryLine, entryLine.text, label);
                          myView:Hilite(nil);
                      end,
                      '[]);
          end;
          return(true); // say I handled the click.
      end,
    viewSetupDoneScript:
      func()
      begin
          SetValue(entryLine,'viewFont,userFont10);
          if Visible(datePicker) then datePicker:Update(entryLine, entryLine.text, label);
      end,
    _proto: dateEditorInputLine,
    debug: "DateInputLine"
   };




// ---- File protoDatePickerPicker ----
DateTimeView :=
   {viewBounds: {left: 0, top: 0, right: 135, bottom: 133},
    OpenMe:
      func(returnView, myDate, myTitle)
      begin
          self.viewToSet := returnView;
          self.theDate:= myDate;
          self.theTitle := myTitle;
          self:Open();
      //    print("Open me done")
      end,
    selectedDates: [],
    theDate: nil,
    theTitle: "test",
    title: "clMonthView Sample",
    viewSetupFormScript:
      func()
      begin

          if not theDate or not StringToDate(theDate) then
              theDate:= time();
          else
              theDate := StringToDate(theDate);

          selectedDates := [theDate];

          setvalue(pickerTitle, 'title, theTitle);

      end,
    viewToSet: nil,
    declareSelf: 'base,
    Update:
      func(returnView, myDate, myTitle)
      begin
          self.viewToSet := returnView;
          self.theDate:= myDate;
          self.theTitle := myTitle;
      //    self:viewSetUpFormScript();
          if not theDate or not StringToDate(theDate) then
              theDate:= time();
          else
              theDate := StringToDate(theDate);

          selectedDates := [theDate];

          setvalue(pickerTitle, 'title, theTitle);

          datePicker:Refresh();
          print("datetime updated")
      end,
    AutoClose: True,
    _proto: _userproto000,
    debug: "DateTimeView"
   };

datePicker := /* child of DateTimeView */
   {viewBounds: {left: 7, top: 22, right: 127, bottom: 110},
    viewFormat: 336,
    _proto: protoDatePicker,
    debug: "datePicker"
   };
// View datePicker is declared to DateTimeView



_view002 := /* child of DateTimeView */
   {text: "Today",
    buttonClickScript:
      func()
      begin
          selectedDates := [Time()];
          datePicker:Refresh();
      end,
    viewBounds: {left: 14, top: 118, right: 65, bottom: 130},
    _proto: _userproto001
   };



enter := /* child of DateTimeView */
   {text: "Set",
    buttonClickScript:
      func()
      begin
      print(selectedDates);

      viewToSet:PickedDate(selectedDates[0]);

      //    x := stringtodate(longdatestr(selectedDates[0],0));
      //    SetValue(viewToSet, 'text, DateNTime(x));
          if autoClose then :Parent():Close();
      end,
    viewBounds: {left: 73, top: 118, right: 112, bottom: 130},
    _proto: _userproto001,
    debug: "enter"
   };
// View enter is declared to DateTimeView



_view003 := /* child of DateTimeView */ {_proto: protoClosebox};



pickerTitle := /* child of DateTimeView */
   {title: "Title",
    viewBounds: {left: 4, top: 7, right: 200, bottom: 23},
    _proto: protoTitle,
    debug: "pickerTitle"
   };
// View pickerTitle is declared to DateTimeView




// ---- Back in File test.t ----
datePicker := /* child of main */ {_proto: DateTimeView, debug: "datePicker"};
// View datePicker is declared to main



autoClose setter := /* child of main */
   {
    labelCommands:
      ["Auto Close Date Editors on Set","Manually Close Date Editor with x"],
    viewBounds: {left: 20, top: 274, right: 220, bottom: 287},
    labelActionScript:
      func(cmd)
      begin
          if cmd = 0 then
              dateTimePicker.AutoClose := datePicker.AutoClose := True;
          else
              dateTimePicker.AutoClose := datePicker.AutoClose := nil;
      end,
    _proto: protoLabelPicker,
    debug: "autoClose setter"
   };







// ---- Beginning of section for non used Layout files ----

// End of output